Chip 1998 July/Chip_1998-07_cd.bin/zkuste/mazda/mazIn311.dxr/Internal_26_NO Visible + Mask.ls

Text File | 1998-05-06 | 785 b | 29 lines

property nCurMemb, nOtMemb

on beginSprite me
  set nCurMemb to the memberNum of sprite the spriteNum of me
  set nOtMemb to nCurMemb + 2
  set the memberNum of sprite the spriteNum of me to nOtMemb
  set the visible of sprite the spriteNum of me to 0
end

on endSprite me
  set the memberNum of sprite the spriteNum of me to nCurMemb
  set the visible of sprite the spriteNum of me to 1
end

on SetVis me, lVis
  if lVis then
    set the memberNum of sprite the spriteNum of me to nCurMemb
    set the ink of sprite the spriteNum of me to 8
  else
    set the memberNum of sprite the spriteNum of me to nOtMemb
    set the ink of sprite the spriteNum of me to 8
    delay(2 * 60)
  end if
  set the visible of sprite the spriteNum of me to lVis
end

on getPropertyDescriptionList
end